(COMMENT REGPDL 25000. specpdl 7000. fixpdl 3000. flpdl 2000.)
(alloc '(list (10000 10000 nil)))
(PROGN
(SETSYNTAX 35. 2 35.)
(COND ((STATUS FEATURES NEWIO)
       (FASLOAD REQUIRE FAS DSK (MAC LSP))
       (FASLOAD EREAD FAS DSK (MAC LSP))
       (FASLOAD DIRECT FAS DSK (MAC LSP))))
(FASLOAD DEMON FAS DSK (AID RPG))
(COND ((STATUS NOFEATURES NEWIO)
       (FASLOAD ESCI FAS DSK (AID RPG))))
(FASLOAD UTIL FAS DSK (AID RPG))
(FASLOAD LET FAS DSK (MAC LSP))
(FASLOAD LOADED FAS DSK (MAC LSP))
(SETQ PURE 2)
(EDIT)
(FASLOAD STEP FAS DSK (MAC LSP))
(setq em:no-init t)
(fasload emaclsp fas dsk (mac lsp))
(fasload eaid fas dsk (mac lsp))
(FASLOAD GRIND FAS DSK (MAC LSP))
(SETQ DEFAULTF '((DSK (MAC LSP)) * *))
(FASLOAD REQALL FAS DSK (MAC LSP))
;(FASLOAD BACKQ)
(FASLOAD DEFMACRO)
(FASLOAD GRINDE)
(FASLOAD SORT)
(FASLOAD SHARPM)
(FASLOAD STRUCT)
(FASLOAD SETF)
(FASLOAD HELP)
(FASLOAD DEBUG)
(FASLOAD BRAKE)
(FASLOAD TRACE)
(FASLOAD CLOSE)
(FASLOAD MACEX FAS DSK (MAC LSP))
(FASLOAD MATCH)
(FASLOAD UMATCH)
(FASLOAD SETNAME)
(SETQ PURE NIL *PURE NIL)
(OR (GET 'MACRODEF 'MACRO)
    (FASLOAD MACROD FAS DSK (MAC LSP)))
(FASLOAD FILE FAS DSK (AID RPG))
(SSTATUS TTYINT 200. '+internal-↑B-break)
(SSTATUS TTYINT 232. '+internal-↑B-break)

(setq backquote-expand-when 'read)

(defprop yh (yh rpg) ppn)
(defprop com (mac lsp) ppn)
(defprop krl (krl pam) ppn)
(defprop nil (nil s1) ppn)

(SETQ %/#DRAFT ())

(COND ((STATUS FEATURES NEWIO)
       (CLOSE INFILE)
       (INPUSH -1))
      (T (UCLOSE)))

(gc)(gctwa t)
(sstatus gctime 0)
(SUSPEND '|Save sys pedit| '(PEDIT SHR SYS (1 3)))
(setq ibase 10. base 10.)
;(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR))) 
(REMPROP 'EDIT 'EDIT-INIT-FILE)
(REMPROP 'EDIT 'EDIT-INIT-FILE-LOAD-MESSAGE)
(SETQ *NOPOINT T)
(COND ((UPROBE EDITOR INI)
       (SETQ %INITIALIZE-EDITOR? T)
       (PUTPROP 'EDIT '(EDITOR INI) 'EDIT-INIT-FILE)
       (putprop 'edit '|;loading EDITOR.INI| 'edit-init-file-load-message)))   
(terpri)
(princ '|;Edit  |)
(or si:ecalledp (edit1 nil))
(cond (si:ecalledp
       (setq -em:herald- ())
       (em:mail-interface-initialize)))
t)